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* TITLE * TURBQDOS OPERATING SYSTEM SERIAL/PARALLEL DRIVER (MuSYS NET/82) " 

* SBTTL "COPYRIGHT (C) 1982* SOFTWARE 2000* INC*" 


* COPYRIGHT (C) 1982* SOFTWARE 2000* INC* 

* 

9 

* AUTHORS? RONALD E* RAIKES 

* MICHAEL D. BUSCH 


* VERSION: 06/21/82 

A 

9 


* I DENT 

A 

SPDN82 


* MODULE ID 

9 

♦INSERT 

A 

DREGUATE 

* DRIVER SYMBOLIC EQUIVALENCES 

9 

SIOVEC 

A 

■ 20H 


*SIO INTERRUPT VECTOR ADDRESS 

9 

SIOADR 

= OOH 


*SIO PORT A DATA REGISTER 

SIOACR 

■ 01H 


*SIO PORT A CONTROL REGISTER 

SIOBDR 

= 02H 


*SIO PORT B DATA REGISTER 

SIOBCR 

A 

= 03H 


*S10 PORT B CONTROL REGISTER 

* 

RDA 

■ 0 


* RECEIVED DATA AVAILABLE BIT 

TBE 

- o 

Am 


* TRANSMIT BUFFER EMPTY BIT 

DCD 

= 3 


* DATA CARRIER DETECT BIT 

CTS 

A 

= 5 


* CLEAR TO SEND BIT 

9 

TIMO 

■ 10H 


* TIMER 0 DATA REGISTER 

TIM1 

= 1 1H 


* TIMER 1 DATA REGISTER 

TIM2 

* 12H 


* TIMER 2 DATA REGISTER 

TIMCTL 

A 

■ 13H 


* TIMER CONTROL REGISTER 

9 

TOCMD 

= 36H 


* TIMER 0 COMMAND 

T1CMD 

= 76H 


* TIMER 1 COMMAND 

T2CMD 

A 

* 0B6H 


* TIMER 2 COMMAND 

9 

♦ LOC 

♦DATA,# 

* LOCATE IN DATA AREA 

9 

boibsz: 

: *WORD 

64 

* SERIAL 0 INPUT BUFFER SIZE 

soibuf: 

♦ WORD 

0 

* SERIAL 0 INPUT BUFFER ADDRESS 

soiptr: 

♦ WORD 

0 

* SERIAL 0 INPUT POINTER 

sooptr: 

♦ WORD 

0 

* SERIAL 0 OUTPUT POINTER 

soicnt: 

♦ WORD 

0 

* SERIAL 0 INPUT COUNT 

soiwct: 

♦ BYTE 

0 

* SERIAL 0 INPUT WAIT COUNT 

soochr: 

♦ BYTE 

0 

* SERIAL 0 OUTPUT CHARACTER 

sobr: 

A 

♦ BYTE 

0 

* SERIAL 0 BAUD RATE CODE 

9 

soisph: 

♦ WORD 

0 

* SERIAL 0 INPUT SEMAPHORE 

* SEMAPHORE COUNT 

♦ *soih: 

. WORD 

♦ ,SOIH 

* SEMAPHORE P/D HEAD 

A 

* WORD 

♦ *SOIH 


9 



* SERIAL 0 OUTPUT SEMAPHORE 

soosph: 

♦ WORD 

0 

* SEMAPHORE COUNT 

, *sooh: 

♦ WORD 

♦ .SOOH 

* SEMAPHORE P/D HEAD 

A 

♦ WORD 

♦ ♦ SOOH 


9 



* SERIAL 0 OUTPUT SEMAPHORE 

soxsph: 

♦ WORD 

1 

* SEMAPHORE COUNT 

♦ *soxh: 

. WORD 

♦ ♦ SOXH 

* SEMAPHORE P/D HEAD 

A 

♦ WORD 

♦ .SOXH 


y 

siibsz: 

: * WORD 

16 

f SERIAL 1 INPUT BUFFER SIZE 

siibuf: 

* WORD 

0 

* SERIAL 1 INPUT BUFFER ADDRESS 



sioptr: .word 

S1ICNT. ♦ WORD 
S1IWCTJ . BYTE 

siochr: .byte 

S1BR ♦ .BYTE 


siisph: .word 
. .siih: .word 

. WORD 

* 

y 

siosph: .word 
..sioh: .word 

. WORD 


S1XSPH > .WORD 
..SI XHt .WORD 
.WORD 


A 

J 

spinit: :lxi 

SHLD 

LX I 

LXI 

OUT.TR 

LXI 

LXI 

OUTIR 

L.HL.D 

CALL 

SHLD 

SHLD 

SHLD 

LHLD 

CALL 

SHLD 

SHLD 

SHLD 

RET 

A 

y 

siopgm: .byte 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 


v ratnim. j. mru i ruin r cn 

0 y SERIAL 1 OUTPUT POINTER 

0 r SERIAL 1 INPUT COUNT 

0 r SERIAL 1 INPUT WAIT COUNT 

0 ? SERIAL 1 OUTPUT CHARACTER 

0 5 SERIAL 1 BAUD RATE CODE 

r SERIAL 1 INPUT SEMAPHORE 
0 i SEMAPHORE COUNT 

..SIIH y SEMAPHORE P/D HEAD 
. .SIIH 

y SERIAL I OUTPUT SEMAPHORE 

0 y SEMAPHORE COUNT 
..SIOH y SEMAPHORE P/D HEAD 
. .SIOH 

y SERIAL 1 OUTPUT SEMAPHORE 

1 i SEMAPHORE COUNT 

. . S1XH y SEMAPHORE P/D HEAD 
. . S1XH 

♦ INIT . # y LOCATE IN INITIALIZATION AREA 

H y SIOISR yGET SIO INTERRUPT SERVICE ADDR 
SIOVEC y SET SIO INTERRUPT VECTOR ADDRESS 
Hy SIOPGM «GET SIO PROGRAM LIST 
B y SIOAPLCS ! SIOACR y B-LENGTH/C=CONTROL. REG 
y PROGRAM SIO PORT A 
H y SIOPGM yGET SIO PROGRAM LIST 
BySI0BPL<8!SI0BCR * B=LENGTH/C=CONTROL REG 
y PROGRAM SIO PORT B 

SOIBSZ yGET SERIAL 0 INPUT BUFFER SIZE 
ALLOC# y ALLOCATE PACKET FOR SERIAL BUFFER 
SOIBUF y SAVE SERIAL 0 INPUT BUFFER ADDRESS 
SOIPTR y SET SERIAL 0 INPUT POINTER 
SOOPTR y SET SERIAL 0 OUTPUT POINTER 
S1IBSZ 5GET SERIAL 1 INPUT BUFFER SIZE 
ALLOC# y ALLOCATE PACKET FOR SERIAL BUFFER 
S1IBUF y SAVE SERIAL 1 INPUT BUFFER ADDRESS 
S1IPTR y SET SERIAL 1 INPUT POINTER 
SIOPTR y SET SERIAL 1 OUTPUT POINTER 
y DONE 

18H y RESET CHANNEL 

4 ? SELECT WR4 

44H y WRITE REGISTER 4 CONTROL WORD 

5 y SELECT WR5 

OEAH y WRITE REGISTER 5 CONTROL WORD 

3 y SELECT WR3 

0C1H y WRITE REGISTER 3 CONTROL WORD 

1 y SELECT WR1 

10H y WRITE REGISTER 1 CONTROL WORD 


A 

y 

|S 10 A PL * ♦ -SIOPGM y S 1 0 PORT A PROGRAM LENGTH 


y 


A 

y 

SIOBPL 

§ 


.BYTE 2 y SELECT WR2 

.BYTE SIOVEC y WRITE REGISTER 1 CONTROL WORD 
» .“SIOPGM ?SIO PORT B PROGRAM LENGTH 

.LOC .PROG.# y LOCATE IN PROGRAM AREA 


pERIAL ♦ t 

COMDRV ? t MOV A ? E yGET FUNCTION NUMBER- 

ORA A y FUNCTION NUMBERED? 



DCR 

A 

r FUNCTION NUMBER=.1. ? 


JRZ 

SERIN 

y IF SOy CONTINUE 


DCR 

A 

? FUNCTION NUMBERS? 


JZ 

SEROUT 

y IF SOy CONTINUE 


DCR 

A 

? FUNCTION NUMBER=3? 


JZ 

SERSBR 

?IF SOy CONTINUE 


DCR 

A 

? FUNCTION NUMBERS? 


JZ 

SERRBR 

r IF SO? CONTINUE 


DCR 

A 

? FUNCTION NUMBER=5? 


JZ 

SERSMC 

rIF SOs- CONTINUE 


DCR 

A 

? FUNCTION NUMBER=6? 


JZ 

SERRMC 

? IF SOs- CONTINUE 

A 

RET 


? ELSE? DONE 

y 

serst: 

L.DED 

SOICNT 

? GET SERIAL 0 INPUT BUFFER COUNT 


LHLD 

SOOPTR 

? GET SERIAL 0 OUTPUT POINTER 


MOV 

A y B 

? GET CHANNEL NUMBER 


ORA 

A 

? CHANNEL NUMBER=0 


JRZ 

♦ .COM 

? IF SOy CONTINUE 


LDED 

S1ICNT 

y GET SERIAL 1 INPUT BUFFER COUNT 


LHLD 

SIOPTR 

y GET SERIAL 1 OUTPUT POINTER 

. .com: 

MOV 

ArD 



ORA 

E 

y SERIAL INPUT BUFFER C0UNT=0? 


RZ 


y I F SOy DONE 


MVI 

ArOFFH 

yELSEy SET RETURN CODE=OFFH 


MOV 

CyM 

y GET SERIAL INPUT CHARACTER 

A 

RET 


y DONE 

f 

serin: 

MOV 

AyB 

y GET CHANNEL NUMBER 


ORA 

A 

y CHANNEL NUMBER=0? 


JRNZ 

♦ .SI I 

y IF NOTy CONTINUE 

. .son 

DI 


yELSEy DISABLE INTERRUPTS 


LHLD 

SOICNT 

y GET SERIAL 0 INPUT COUNT 


MOV 

ArH 



ORA 

L. 

y SERIAL 0 INPUT C0t.JNT=0? 


JRZ 

. .WTO 

y I F SOy CONTINUE 


DCX 

H 

y DECREMENT SERIAL 0 INPUT COUNT 


SHLD 

SOICNT 

y UPDATE SERIAL 0 INPUT COUNT 


LHLD 

SOOPTR 

y GET SERIAL 0 OUTPUT POINTER 


MOV 

A f M 

y GET CHARACTER FROM BUFFER 


INX 

H 

y INCREMENT SERIAL 0 OUTPUT POINTER 


XCHG 


y SERIAL 0 OUTPUT POINTER TO DE-REG 


LHLD 

SOIBSZ 

y GET SERIAL 0 INPUT BUFFER SIZE 


DCX 

H 

y DECREMENT INPUT BUFFER SIZE 


L.BCD 

SOIBUF 

yGET SERIAL 0 INPUT BUFFER ADDRESS 


DAD 

B 

y CALC LAST INPUT BUFFER ADDRESS 


DSBC 

D 

y BUFFER WRAP-AROUND? 


JRNC 

. * NWAO 

y IF NOTy CONTINUE 


MOV 

EfC 

yGET SERIAL 0 INPUT BUFFER ADDRESS 


MOV 

DrB 


L .nwao: 

SDED 

SOOPTR 

y UPDATE SERIAL 0 OUTPUT POINTER 


El 


y ENABLE INTERRUPTS 


RET 


y DONE 

k .wto: 

LX I 

H ? SOI WCT 

yGET SERIAL 0 INPUT WAIT COUNT 


I NR 

M 

y INCREMENT INPUT WAIT COUNT 


LXI 

H ? SOISPH 

1 yGET SERIAL 0 INPUT SEMAPHORE 


CALL 

WAIT# 

y WAIT FOR CONSOLE INPUT 


JMF'R 

. .SOI 

y CONTINUE 

\ ♦six: 

DI 


y DISABLE INTERRUPTS 


LHLD 

S1ICNT 

yGET SERIAL 1 INPUT COUNT 


MOV 

AyH 



ORA 

L 

y SERIAL 1 INPUT C0UNT=0? 


JRZ 

. .WT1 

y IF SOy CONTINUE 


DCX 

H 

y DECREMENT SERIAL 1 INPUT COUNT 


SHLD 

S1ICNT 

» UPDATE SERIAL 1 INPUT COUNT 


_ — — — t-rruu — sTorm nnrr" atr^rFit: rromn r crimm 

MOV A y M y GET CHARACTER FROM BUFFER 

I NX H ? INCREMENT SERIAL 1 OUTPUT POINTER 

XCHG y SERIAL 1 OUTPUT POINTER TO DE-REG 

LHLD S1IBSZ ? GET SERIAL 1 INPUT BUFFER SIZE 

DCX H y DECREMENT INPUT BUFFER SIZE 

LBCD S1IBUF v GET SERIAL 1 INPUT BUFFER ADDRESS 

DAD B y CALC LAST INPUT BUFFER ADDRESS 

DSBC D r BUFFER WRAP-AROUND? 

JRNC . .NWA1 9 IF NOT y CONTINUE 

MOV Es-C f GET SERIAL 1 INPUT BUFFER ADDRESS 

MOV D i B 

♦ .NWAK SDED SIOPTR y UPDATE SERIAL 1 OUTPUT POINTER 

El y ENABLE INTERRUPTS 

RET y DONE 

, »WT1J LXI HySlIWCT y GET SERIAL 1 INPUT WAIT COUNT 

INR M y INCREMENT INPUT WAIT COUNT 

LXI HxSlISPH y GET SERIAL 1 INPUT SEMAPHORE 

CALL WAIT* t WAIT FOR CONSOLE INPUT 

JMPR . .S1I ^CONTINUE 

A 

? 

SEROUTJ MOV A y B ? GET CHANNEL NUMBER 

ORA A y CHANNEL NIJMBER=1? 

JRNZ ..SIO y IF SOy CONTINUE 

LXI H y SOXSPH y GET SERIAL 0 OUT SEMAPHORE 

PUSH H ySAVE SERIAL 0 OUT SEMAPHORE 

CALL WAIT* ? WAIT ON MUTUAL EXCLUSION 

LXI H y SOOCHR POET SERIAL 0 OUTPUT CHARACTER 

MOV MyC y SAVE OUTPUT CHARACTER 

LXI DySOOPOL y GET SERIAL 0 OUT POLL ROUTINE 

CALL LNKPOL* y CREATE POLL ROUTINE 

CALL SOOPR y EXECUTE POLL ROUTINE 

LXI Hy SOOSPH PGET SERIAL 0 OUT SEMAPHORE 

CALL WAIT* y DISPATCH IF NECESSARY 

POP H y GET MUTIJTAL EXCLUSION SEMAPHORE 

JMP SIGNAL# y SIGNAL PROCESS AS READY 

.♦SlOi LXI H y S1XSPH y GET MUTUAL EXCLUSION SEMAPHORE 

PUSH H ? SAVE MUTUAL EXCLUSION SEMAPHORE 

CALL WAIT# y WAIT ON MUTUAL EXCLUSION 

LXI H y S.1.0CHR * GET SERIAL 1 OUTPUT CHARACTER 

MOV MyC y SAVE OUTPUT CHARACTER 

LXI D y SIOPOL y GET SERIAL 1 OUT POLL ROUTINE 

CALL LNKPOL# y CREATE POLL ROUTINE 

CALL SI OPR y EXECUTE POLL ROUTINE 

LXI H y SIOSPH y GET SERIAL 1 OUT SEMAPHORE- 

CALL.. WAIT# y DISPATCH IF NECESSARY 

POP H y GET MUTUTAL EXCLUSION SEMAPHORE 

JMP SIGNAL* ? SIGNAL PROCESS AS READY 


SOOPOL? y SERIAL 0 OUTPUT POLL ROUTINE 

» WORD 0 f SUCCESSOR LINK POINTER 

* WORD 0 y PREDECESSOR LINK POINTER 

A 

y 

SOOPR J MV I AylOH y GET RESET EXTERNAL STATUS COMMAND 

OUT SIOACR y RESET EXTERNAL STATUS 

IN SIOACR y GET SIO PORT A STATUS 

BIT TBE y A y TRANSMIT BUFFER EMPTY? 

RZ y IF NOTy DONE 

LXI H y SOBR yELSEy GET SERIAL 0 BAUD RATE CODE 

BIT 6 y M fCTS HANDSHAKING REQUESTED? 

JRZ * ♦ NCTS y IF NOTy CONTINUE 

BIT CTSy A yELSEy CHECK CLEAR TO SEND STATUS 

RZ y IF CLEAR TO SEND FALSEy DONE 

♦ « NCTSi LDA SOOCHR y GET SERIAL 0 OUTPUT CHARACTER 

OUT SIO ADR y OUTPUT CHARACTER 

I XT HeROnpm SOFT RFRTAI 0 OUT POLL ROUTINE 


U ri L_ u 


imLiRixi y uixl. j. rrri TUttr nourjrnf 

LX I HySOOSPH f GET SERIAL 0 OUT SEMAPHORE 

JMP SIGNAL# y SIGNAL PROCESS AS READY 

y 

S10PQL ? y SERIAL 1 OUTPUT POLL ROUTINE 

♦ WORD 0 y SUCCESSOR LINK POINTER 

♦ WORD 0 ? PREDECESSOR LINK POINTER 

y 

SI OPR ? MVI A y 1 OH y GET RESET EXTERNAL STATUS COMMAND 

OUT SIOBCR yRESET EXTERNAL STATUS 

IN SIOBCR y GET SIO PORT B STATUS 

BIT TBE y A y TRANSMIT BUFFER EMPTY? 

RZ y IF NOT y DONE 

L.XI Hs> S1BR yELSEy GET SERIAL 1 BAUD RATE CODE 

BIT 6 y M y CTS HANDSHAKING REQUESTED? 

JRZ ♦ « NCTS y IF NOTy CONTINUE 

BIT CTS y A y ELSE y CHECK CLEAR TO SEND STATUS 

RZ y IF CLEAR TO SEND FALSEy DONE 

.♦NCTS: LDA SIOCHR y GET SERIAL 1 OUTPUT CHARACTER- 

OUT SIOBDR y OUTPUT CHARACTER 

L.XI H y SIOPOL y GET SERIAL 1 OUT POLL ROUTINE 

CALL UNLINK# y UNLINK POLL ROUTINE 

LXI Hy SIOSPH y GET SERIAL 1 OUT SEMAPHORE 

JMP SIGNAL# y SIGNAL PROCESS AS READY 

A 

y 

SIOISRi SSPD INTSP# y SAVE STACK POINTER 

LXI SP y INTSTK# f SET UP AUX STACK POINTER 

PUSH PSU y SAUE REGISTERS 

PUSH B 

PUSH D 

PUSH H 

CALL ..SOI y CHECK FOR SERIAL 0 INPUT 

CALL ..S1I y CHECK FOR SERIAL 1 INPUT 

POP H y RESTORE REGISTERS 

POP D 

POP B 

POP PSW 

L.SPD INTSP# y RESTORE STACK POINTER 

El yENABLE INTERRUPTS 

RETI y DONE 

*,SOIJ IN SIOACR y GET SIO PORT A STATUS 

BIT RDA y A y CHARACTER AVAILABLE 

RZ y IF NOTy DONE 

IN SIOADR y GET SIO PORT A DATA CHARACTER 

LXI H y SOBR y GET SERIAL 0 BAUD RATE CODE 

BIT 5 y M y INHIBIT INPUT FLAG SET? 

RNZ y IF SOy DONE 

MOV CyA y SERIAL 0 DATA CHARACTER TO C-REG 

BIT 7 y M y SIGN BIT ON BAUD RATE CODE? 

JRZ ♦ ♦ NADO y IF NOTy CONTINUE 

RES 7 y C yELSEy STRIP SIGN BIT ON CHARACTER 

CALL SLVRES# ? CHECK FOR SLAVE RESET 

LDA ATNCHR# y GET ATTENTION CHARACTER 

CMP C yCHARACTER=ATTENTION CHARACTER? 

JRNZ * * NADO y IF NOTy CONTINUE 

L.HLD SOIPTR yELSEy GET SERIAL 0 INPUT POINTER 

SHLD SOOPTR y RESET SERIAL 0 OUTPUT POINTER 

LXI HyO 

SHLD SOICNT y SET SERIAL 0 INPUT COUNTED 

. * NADO t LHLD SOIBSZ y GET SERIAL 0 INPUT BUFFER SIZE 

L.DED SOICNT y GET SERIAL 0 INPUT COUNT 

INX D y INCREMENT SERIAL 0 INPUT COUNT 

ORA A y CLEAR CARRY FLAG 

DSBC D y SERIAL 0 INPUT BUFFER FULL? 

RC y IF SOy DONE 

SDFD SOICNT yELSEy UPDATE SERIAL 0 INPUT COUNT 


♦ NWAOS 


.sii: 


» NADI J 


* NWA1 1 


* SIGC J 


'tn rcnuTf- 

— jwxrn\ 

MOV 

MyC 

I NX 
XCHG 

H 

LHLD 

SOIBSZ 

DCX 

H 

L.BCD 

SOIBUF 

DAD 

B 

DSBC 

D 

JRNC 

. ♦ NWAO 

MOV 

EyC 

MOV 

D y B 

SDED 

SOIPTR 

L.XI 

D y SOI WCT 

LXI 

H y SOISPH 

CALL 

* .SIGC 

JMPR 

. *501 

IN 

SIOBCR 

BIT 

RZ 

RDA y A 

IN 

SIOBDR 

LXI 

HySIBR 

BIT 

RNZ 

5 y M 

MOV 

CyA 

BIT 

7 y M 

JRZ 

♦ ♦ NADI 

RES 

7 y C 

CALL 

SLVRES# 

L.DA 

ATNCHR# 

CMP 

C 

JRNZ 

♦ * NADI 

LHLD 

S1IPTR 

SHLD 

S10PTR 

LXI 

HyO 

SHLD 

S1ICNT 

LHLD 

S1IBSZ 

L.DED 

S1ICNT 

INX 

D 

ORA 

A 

DSBC 

RC 

D 

SDED 

S1ICNT 

LHLD 

S1IPTR 

MOV 

MyC 

INX 

XCHG 

H 

LHLD 

S1IBSZ 

DCX 

H 

LBCD 

S1IBUF 

DAD 

B 

DSBC 

D 

JRNC 

. « NWA1 

MOV 

EyC 

MOV 

DyB 

SDED 

S1IPTR 

LXI 

Dy SII WCT 

LXI 

H y SI I SPH 

CALL 

♦ ♦ SIGC 

JMPR 

. ,S1I 

LDAX 

D 

ORA 

RZ 

A 

DCR 

A 

STAX 

D 

JMP 

SIGNAL# 


y ltu 1 — crtnvXTTt. — ^ x~n iu i i u/ j. rr i 

r STORE INPUT CHARACTER IN BUFFER 
y INCREMENT INPUT POINTER 
f DE-INPUT POINTER/HL= BUFFER SIZE 
y GET SERIAL 0 INPUT BUFFER SIZE 
y DECREMENT INPUT BUFFER SIZE 
y GET SERIAL 0 INPUT BUFFER ADDRESS 
y CALC LAST INPUT BUFFER ADDRESS 
y BUFFER WRAP-AROUND? 
y IF NOTy CONTINUE 

?GET SERIAL 0 INPUT BUFFER ADDRESS 

y UPDATE SERIAL 0 INPUT POINTER 
y GET SERIAL 0 INPUT WAIT COUNT 
y GET SERIAL 0 INPUT SEMAPHORE 
y SIGNAL IF NECESSARY 
y CONTINUE 

y GET SIO PORT B STATUS 
y CHARACTER AVAILABLE 
y IF NOTy DONE 

y GET SIO PORT B DATA CHARACTER 
y GET SERIAL 1 BAUD RATE CODE 
y INHIBIT INPUT FLAG SET? 
y IF SOy DONE 

y SERIAL 1 DATA CHARACTER TO C-REG 
y ATTENTION DETECTION FLAG SET? 
y IF NOTy CONTINUE 

yELSEy STRIP SIGN BIT ON CHARACTER 
y CHECK FOR SLAVE RESET 
y GET ATTENTION CHARACTER 
y CHARACTER “ATTENTION CHARACTER? 
y IF NOTy CONTINUE 

yELSEy GET SERIAL 1 INPUT POINTER 
y RESET SERIAL 1 OUTPUT POINTER 

y SET SERIAL 1 INPUT COUNT=l 
y GET SERIAL 1 INPUT BUFFER SIZE 
y GET SERIAL 1 INPUT COUNT 
y INCREMENT SERIAL .1 INPUT COUNT 
y CLEAR CARRY FLAG 
y SERIAL 1 INPUT BUFFER FULL? 
y IF SOy DONE 

yELSEy UPDATE SERIAL 1 INPUT COUNT 
y GET SERIAL 1 INPUT POINTER 
y STORE INPUT CHARACTER IN BUFFER 
y INCREMENT INPUT POINTER 
y DE= INPUT POINTER/HL==BUFFER SIZE 
y GET SERIAL 1 INPUT BUFFER SIZE 
y DECREMENT INPUT BUFFER SIZE 
y GET SERIAL 1 INPUT BUFFER ADDRESS 
y CALC LAST INPUT BUFFER ADDRESS 
y BUFFER WRAP-AROUND? 
y IF NOTy CONTINUE 

y GET SERIAL 1 INPUT BUFFER ADDRESS 

y UPDATE SERIAL 1 INPUT POINTER 
y GET SERIAL 1 INPUT WAIT COUNT 
y GET SERIAL 1 INPUT SEMAPHORE 
y SIGNAL IF NECESSARY 
y CONTINUE 

y GET SERIAL INPUT WAIT COUNT 
y SERIAL INPUT WAIT COUNT “O? 
y IF SOy DONE 

y DECREMENT SERIAL INPUT WAIT COUNT 
y UPDATE SERIAL INPUT WAIT COUNT 
y SIGNAL PROCESS AS READY 



SERSBR! 

MOO 

A , B 

9 GET CHANNEL NUMBER 


LXI 

H , SOBR 

9 GET SERIAL 0 BAUD RATE CODE 


ORA 

A 

9 CHANNEL NUMBER=0? 


JRZ 

. , COM1 

9 IF SO, CONTINUE 


LXI 

H , S1BR 

9 ELSE ? GET SERIAL 1 BAUD RATE CODE 

. ♦ C0M1 ! 

MOO 

M , C 

9 SAOE BAUD RATE CODE 


CALL 

GETBTO 

? GET BAUD RATE TIMER OALUE 


MOO 

A,B 

? GET CHANNEL NUMBER 


ORA 

A 

y CHANNEL NUMBER=0? 


MOI 

A,TOCMD 

y GET TIMER 0 COMMAND 


MOI 

C , T I MO 

y GET TIMER 0 DATA REGISTER 


JRZ 

. .COM2 

? IF CHANNEL NUMBER^O y CONTINUE 


MOI 

A , T1CMD 

y ELSE y GET TIMER 1 COMMAND 


MOI 

C,TIM1 

r GET TIMER 1 DATA REGISTER 

. .COM2! 

OUT 

TIMCTL 

y SELECT TIMER 


OUTP 

E 

9 OUTPUT LSB OF TIMER OALUE 


OUTF' 

D 

9 OUTPUT MSB OF TIMER OALUE 

* 

RET 


9 DONE 

9 

GETBT VJ 

t MOO 

A , C 

9 GET REQUESTED BAUD RATE CODE 


ANI 

OFH 

9 EXTRACT RELEOANT BITS 


ADD 

A 

9X2 


MOO 

E,A 

9 TO E-REG 


MOI 

D,0 

9 MAKE IT DOUBLE LENGTH 


LXI 

H , BRTBL 

* GET BAUD RATE TABLE 


DAD 

D 

9 INDEX INTO TABLE 


MOO 

E,M 

9 GET TIMER OALUE 


I NX 

H 



MOO 

D , M 


* 

RET 


? DONE 

9 

BRTBL ! 

.WORD 

3072 

9 50 BAUD TIMER OALUE 


.WORD 

2048 

975 BAUD TIMER OALUE 


. WORD 

1396 

»110 BAUD TIMER OALUE 


. WORD 

1142 

9 134.5 BAUD TIMER OALUE 


.WORD 

1024 

9 .150 BAUD TIMER OALUE 


.WORD 

512 

9 300 BAUD TIMER OALUE 


.WORD 

256 

9 600 BAUD TIMER OALUE 


, WORD 

128 

9 1200 BAUD TIMER OALUE 


.WORD 

85 

9 1 800 BAUD TIMER OALUE 


.WORD 

77 

9 2000 BAUD TIMER OALUE 


. WORD 

64 

9 2400 BAUD TIMER OALUE 


. WORD 

43 

? 3600 BAUD TIMER OALUE 


.WORD 

32 

9 4800 BAUD TIMER OALUE 


.WORD 

21 

9 7200 BAUD TIMER OALUE 


.WORD 

16 

9 9600 BAUD TIMER OALUE 

A 

.WORD 

8 

9 19200 BAUD TIMER OALUE 

9 

SERRBR! 

LXI 

H , SOBR 

9 GET SERIAL 0 BAUD RATE 


MOO 

A , B 

9 GET CHANNEL NUMBER 


ORA 

A 

9 CHANNEL NUMBER=0? 


JRZ 

. .COM 

? IF BO, CONTINUE 


LXI 

H,S1BR 

9 ELSE y GET SERIAL 1 BAUD RATE 

. .COM! 

MOO 

A , M 

9 GET CURRENT BAUD RATE CODE 

A 

RET 


9 DONE 

BERSMC ! 

MOI 

ArOEAH 

9 GET WRITE REGISTER 5 CONTROL WORD 


ANI 

#82H 

9 STRIP RTS/CTS CONTROL BITS 


BIT 

7,C 

9 RTS REQUESTED? 


JRZ 

. .NRTS 



SET 

1, A 

9 IF SO, SET RTS BIT 

L .NRTS! 

BIT 

6 , C 

9 DTR REQUESTED? 


JRZ 

. .NDTR 



SET 

7, A 

9 IF SO, SET DTR BIT 

L . NDTR ! 

MOO 

Dr A 

9 REQUESTED MODEM CONTROLS TO D-REG 





■ w > i wri 

v i wX w i w»% » «* - 




MOV 

A » B 

x GET CHANNEL NUMBER 




ORA 

A 

x CHANNEL NUMBERED? 




JRZ 

♦ ♦COM 

x IF SOx CONTINUE 




MV. I 

CxSIOBCR 

x GET SIO PORT B CONTROL 

REGISTER 


. .com: 

MV I 

Ax 5 

x SELECT WRITE REGISTER 5 




DUTP 

A 





OUTP 

D 

x OUTPUT CONTROL WORD 



A 

RET 


x DONE 



? 

S ERR MCI 

MV I 

CxSIOACR 

x GET SIO PORT A CONTROL 

REGISTER 



MOV 

A * B 

x GET CHANNEL NUMBER 




ORA 

A 

x CHANNEL NUMBERED? 




JRZ 

♦ ♦ COM 

x IF SOx CONTINUE 




MVI 

CxSIOBCR 

x GET SIO PORT B CONTROL 

REGISTER 


♦ ♦com: 

MVI 

AxlOH 

x GET RESET EXTERNAL STATUS 

! COMMAND 



OUTP 

A 

x RESET EXTERNAL STATUS 




INP 

D 

x GET SIO MODEM STATUS 




XRA 

A 

x CLEAR RETURN VECTOR 




BIT 

CTSxD 

xCTS SET? 




JRZ 

♦ *NCTS 

x IF NOT x CONTINUE 




SET 

7 x A 

x ELSE x SET CTS BIT 



♦ .ncts: 

BIT 

DCDxD 

x DCD SET? 




RZ 


x IF NOT x DONE 




SET 

5 x A 

x ELSE x SET DCD BIT 



A 

RET 


x DONE 



f 

♦ XSYM 






♦ END 







